home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / numlines.raz < prev    next >
Text File  |  1994-11-23  |  898b  |  32 lines
  1. /** $VER: NumLines.raz 1.1 (23.11.94)
  2.  **
  3.  ** Numérote et dénumérote les lignes du texte.
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. GetNumLines; numlines = RESULT
  9. GetPort; varname = RESULT||"_NumLines.raz_width"
  10.  
  11. GetVar varname; width = RESULT
  12. IF (width == "") THEN DO
  13.     ReqMulti "Numéroter" STR1 ACT DEFAULT "1" STDCANCEL TEXT "Numéroter à partir de quel numéro ?"
  14.     PARSE VAR RESULT button ',"' startnum '","' .
  15.     IF (button == OK) THEN DO
  16.         width = LENGTH( startnum + numlines )
  17.         SetVar varname width+2
  18.         AZColNum startnum 1 1 '-1' NOCURS
  19.         AZColIns '": "' 1 width+1 '-1' NOCURS
  20.         SetModified OFF
  21.     END
  22. END
  23. ELSE DO
  24.     ReqMulti "Numéroter" STDCANCEL TEXT "D'accord pour supprimer les numéros de ligne ?"
  25.     PARSE VAR RESULT button ',"' . '","' .
  26.     IF (button == OK) THEN DO
  27.         SetVar varname
  28.         AZColDel 1 1 '-1' width NOCURS
  29.         SetModified OFF
  30.     END
  31. END
  32.